home *** CD-ROM | disk | FTP | other *** search
/ SGI Hot Mix 17 / Hot Mix 17.iso / HM17_SGI / research / lib / obsolete / f_test1.pro < prev    next >
Text File  |  1997-07-08  |  730b  |  36 lines
  1. ; $Id: f_test1.pro,v 1.2 1997/01/15 04:02:19 ali Exp $
  2. ;
  3. ;  Copyright (c) 1991-1997, Research Systems Inc.  All rights
  4. ;  reserved. Unauthorized reproduction prohibited.
  5.  
  6.  
  7. function f_test1 , X,DFN,DFD
  8. ;+
  9. ; NAME:
  10. ;     F_TEST1
  11. ;
  12. ; PURPOSE:
  13. ;    F_test1 returns the probabilty of an observed value greater than X
  14. ;    from an F distribution with DFN and DFD numerator and denominator 
  15. ;    degrees of freedom.
  16. ;
  17. ; CATEGORY:
  18. ;    Statistics.
  19. ;
  20. ; CALLING SEQUENCE:
  21. ;     Result = F_TEST1(X, DFN, DFD)
  22. ;
  23. ; INPUT:
  24. ;    X:    cutoff
  25. ;
  26. ;    DFN:    numerator degrees of freedom
  27. ;
  28. ;    DFD:    denominator degrees of freedom
  29. ;
  30. ; OUTPUT: 
  31. ;    The probability of a value greater than X. 
  32. ;-
  33.  if X le 0 THEN return,1
  34.  return, 1 - betai( DFD/(DFD+DFN*X),DFD/2.0,DFN/2.0)
  35.  
  36. END